*** Appendix 9: Disaggregated authoritarian beliefs

use  data_long.dta, clear


*************************************************************

*** Figure: Effects of the four authoritarianism facets

*************************************************************

*****************************************
*** Hybrid propaganda / Russian viewpoint
*****************************************

matrix matrix1_all = J(9,3,.) // 3 column for lower ci, estimate, upper ci

*Average effect, all experiments
mixed poolexp i.treat_exp age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
mat r=r(table)
matrix list r // show what is in the r matrix to be able to specify what we want to extract
matrix matrix1_all[1, 1] = r[1,2] // Note: first number in bracket references the row, the second the column
matrix matrix1_all[1, 2] = r[5,2]
matrix matrix1_all[1, 3] = r[6,2]
matrix list matrix1_all // show target matrix to check if everything worked

*By authoritarianism, all experiments
mixed poolexp i.treat_exp##c.rwa age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(2.treat_exp) at(rwa=(1 .42)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_all[2, 1] = r[1,3] // authoritarianism high
matrix matrix1_all[2, 2] = r[5,3]
matrix matrix1_all[2, 3] = r[6,3]
matrix matrix1_all[3, 1] = r[1,4] // authoritarianism low
matrix matrix1_all[3, 2] = r[5,4]
matrix matrix1_all[3, 3] = r[6,4]
matrix list matrix1_all

*By antipluralismt, all experiments
mixed poolexp i.treat_exp##c.antiplur age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(2.treat_exp) at(antiplur=(.83 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_all[4, 1] = r[1,3] // antipluralism high
matrix matrix1_all[4, 2] = r[5,3]
matrix matrix1_all[4, 3] = r[6,3]
matrix matrix1_all[5, 1] = r[1,4] // antipluralism low
matrix matrix1_all[5, 2] = r[5,4]
matrix matrix1_all[5, 3] = r[6,4]
matrix list matrix1_all

*By attitudes toward civil rights, all experiments
mixed poolexp i.treat_exp##c.civil age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(2.treat_exp) at(civil=(.92 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_all[6, 1] = r[1,3] // contra civil rights
matrix matrix1_all[6, 2] = r[5,3]
matrix matrix1_all[6, 3] = r[6,3]
matrix matrix1_all[7, 1] = r[1,4] // pro civil rights
matrix matrix1_all[7, 2] = r[5,4]
matrix matrix1_all[7, 3] = r[6,4]
matrix list matrix1_all


*By moral traditionalism, all experiments
mixed poolexp i.treat_exp##c.tradmor age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(2.treat_exp) at(tradmor=(.92 .25)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_all[8, 1] = r[1,3] // moral traditionalism high
matrix matrix1_all[8, 2] = r[5,3]
matrix matrix1_all[8, 3] = r[6,3]
matrix matrix1_all[9, 1] = r[1,4] // moral traditionalism low
matrix matrix1_all[9, 2] = r[5,4]
matrix matrix1_all[9, 3] = r[6,4]
matrix list matrix1_all


*****************************************
*** Mainstream / Western viewpoint
*****************************************

matrix matrix2_all = J(9,3,.) // 3 column for lower ci, estimate, upper ci

*Average effect, all experiments
mixed poolexp i.treat_exp age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
mat r=r(table)
matrix list r // show what is in the r matrix to be able to specify what we want to extract
matrix matrix2_all[1, 1] = r[1,4] // Note: first number in bracket references the row, the second the column
matrix matrix2_all[1, 2] = r[5,4]
matrix matrix2_all[1, 3] = r[6,4]
matrix list matrix2_all // show target matrix to check if everything worked

*By authoritarianism, all experiments
mixed poolexp i.treat_exp##c.rwa age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(4.treat_exp) at(rwa=(1 .42)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_all[2, 1] = r[1,3] // authoritarianism high
matrix matrix2_all[2, 2] = r[5,3]
matrix matrix2_all[2, 3] = r[6,3]
matrix matrix2_all[3, 1] = r[1,4] // authoritarianism low
matrix matrix2_all[3, 2] = r[5,4]
matrix matrix2_all[3, 3] = r[6,4]
matrix list matrix2_all

*By antipluralismt, all experiments
mixed poolexp i.treat_exp##c.antiplur age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(4.treat_exp) at(antiplur=(.83 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_all[4, 1] = r[1,3] // antipluralism high
matrix matrix2_all[4, 2] = r[5,3]
matrix matrix2_all[4, 3] = r[6,3]
matrix matrix2_all[5, 1] = r[1,4] // antipluralism low
matrix matrix2_all[5, 2] = r[5,4]
matrix matrix2_all[5, 3] = r[6,4]
matrix list matrix2_all

*By attitudes toward civil rights, all experiments
mixed poolexp i.treat_exp##c.civil age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(4.treat_exp) at(civil=(.92 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_all[6, 1] = r[1,3] // contra civil rights
matrix matrix2_all[6, 2] = r[5,3]
matrix matrix2_all[6, 3] = r[6,3]
matrix matrix2_all[7, 1] = r[1,4] // pro civil rights
matrix matrix2_all[7, 2] = r[5,4]
matrix matrix2_all[7, 3] = r[6,4]
matrix list matrix2_all


*By moral traditionalism, all experiments
mixed poolexp i.treat_exp##c.tradmor age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(4.treat_exp) at(tradmor=(.92 .25)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_all[8, 1] = r[1,3] // moral traditionalism high
matrix matrix2_all[8, 2] = r[5,3]
matrix matrix2_all[8, 3] = r[6,3]
matrix matrix2_all[9, 1] = r[1,4] // moral traditionalism low
matrix matrix2_all[9, 2] = r[5,4]
matrix matrix2_all[9, 3] = r[6,4]
matrix list matrix2_all


*****************************************
*** Russian sourcing
*****************************************

matrix matrix1_source_all = J(9,3,.) // 3 column for lower ci, estimate, upper ci

*Average effect, all experiments
mixed poolexp i.treat_exp age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
mat r=r(table)
matrix list r // show what is in the r matrix to be able to specify what we want to extract
matrix matrix1_source_all[1, 1] = r[1,3] // Note: first number in bracket references the row, the second the column
matrix matrix1_source_all[1, 2] = r[5,3]
matrix matrix1_source_all[1, 3] = r[6,3]
matrix list matrix1_source_all // show target matrix to check if everything worked

*By authoritarianism, all experiments
mixed poolexp i.treat_exp##c.rwa age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(3.treat_exp) at(rwa=(1 .42)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_source_all[2, 1] = r[1,3] // authoritarianism high
matrix matrix1_source_all[2, 2] = r[5,3]
matrix matrix1_source_all[2, 3] = r[6,3]
matrix matrix1_source_all[3, 1] = r[1,4] // authoritarianism low
matrix matrix1_source_all[3, 2] = r[5,4]
matrix matrix1_source_all[3, 3] = r[6,4]
matrix list matrix1_source_all

*By antipluralismt, all experiments
mixed poolexp i.treat_exp##c.antiplur age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(3.treat_exp) at(antiplur=(.83 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_source_all[4, 1] = r[1,3] // antipluralism high
matrix matrix1_source_all[4, 2] = r[5,3]
matrix matrix1_source_all[4, 3] = r[6,3]
matrix matrix1_source_all[5, 1] = r[1,4] // antipluralism low
matrix matrix1_source_all[5, 2] = r[5,4]
matrix matrix1_source_all[5, 3] = r[6,4]
matrix list matrix1_source_all

*By attitudes toward German government, all experiments
mixed poolexp i.treat_exp##c.civil age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(3.treat_exp) at(civil=(.92 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_source_all[6, 1] = r[1,3] // contra civil rights
matrix matrix1_source_all[6, 2] = r[5,3]
matrix matrix1_source_all[6, 3] = r[6,3]
matrix matrix1_source_all[7, 1] = r[1,4] // pro civil rights
matrix matrix1_source_all[7, 2] = r[5,4]
matrix matrix1_source_all[7, 3] = r[6,4]
matrix list matrix1_source_all


*By moral traditionalism, all experiments
mixed poolexp i.treat_exp##c.tradmor age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(3.treat_exp) at(tradmor=(.92 .25)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix1_source_all[8, 1] = r[1,3] // moral traditionalism high
matrix matrix1_source_all[8, 2] = r[5,3]
matrix matrix1_source_all[8, 3] = r[6,3]
matrix matrix1_source_all[9, 1] = r[1,4] // moral traditionalism low
matrix matrix1_source_all[9, 2] = r[5,4]
matrix matrix1_source_all[9, 3] = r[6,4]
matrix list matrix1_source_all


*****************************************
*** Western sourcing
*****************************************

matrix matrix2_source_all = J(9,3,.) // 3 column for lower ci, estimate, upper ci


*Average effect, all experiments
mixed poolexp i.treat_exp age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
mat r=r(table)
matrix list r // show what is in the r matrix to be able to specify what we want to extract
matrix matrix2_source_all[1, 1] = r[1,5] // Note: first number in bracket references the row, the second the column
matrix matrix2_source_all[1, 2] = r[5,5]
matrix matrix2_source_all[1, 3] = r[6,5]
matrix list matrix2_source_all // show target matrix to check if everything worked

*By authoritarianism, all experiments
mixed poolexp i.treat_exp##c.rwa age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(5.treat_exp) at(rwa=(1 .42)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_source_all[2, 1] = r[1,3] // authoritarianism high
matrix matrix2_source_all[2, 2] = r[5,3]
matrix matrix2_source_all[2, 3] = r[6,3]
matrix matrix2_source_all[3, 1] = r[1,4] // authoritarianism low
matrix matrix2_source_all[3, 2] = r[5,4]
matrix matrix2_source_all[3, 3] = r[6,4]
matrix list matrix2_source_all

*By antipluralismt, all experiments
mixed poolexp i.treat_exp##c.antiplur age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(5.treat_exp) at(antiplur=(.83 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_source_all[4, 1] = r[1,3] // antipluralism high
matrix matrix2_source_all[4, 2] = r[5,3]
matrix matrix2_source_all[4, 3] = r[6,3]
matrix matrix2_source_all[5, 1] = r[1,4] // antipluralism low
matrix matrix2_source_all[5, 2] = r[5,4]
matrix matrix2_source_all[5, 3] = r[6,4]
matrix list matrix2_all

*By attitudes toward civil rights, all experiments
mixed poolexp i.treat_exp##c.civil age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(5.treat_exp) at(civil=(.92 .17)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_source_all[6, 1] = r[1,3] // contra civil rights
matrix matrix2_source_all[6, 2] = r[5,3]
matrix matrix2_source_all[6, 3] = r[6,3]
matrix matrix2_source_all[7, 1] = r[1,4] // pro civil rights
matrix matrix2_source_all[7, 2] = r[5,4]
matrix matrix2_source_all[7, 3] = r[6,4]
matrix list matrix2_source_all


*By moral traditionalism, all experiments
mixed poolexp i.treat_exp##c.tradmor age female educ_secondary educ_prof_high educ_acad_high know_sum conspiracy_sum pred_bundes_gov_r pred_Russia_r i.exp || lfdn:
margins, dydx(5.treat_exp) at(tradmor=(.92 .25)) // predicted for 5 and 95 percent percentile
mat r=r(table)
matrix list r
matrix matrix2_source_all[8, 1] = r[1,3] // moral traditionalism high
matrix matrix2_source_all[8, 2] = r[5,3]
matrix matrix2_source_all[8, 3] = r[6,3]
matrix matrix2_source_all[9, 1] = r[1,4] // moral traditionalism low
matrix matrix2_source_all[9, 2] = r[5,4]
matrix matrix2_source_all[9, 3] = r[6,4]
matrix list matrix2_source_all



*** Hybrid propaganda (Russian viewpoint) and mainstream viewpoint (Western viewpoint)
coefplot  (matrix(matrix1_all[,1]), ci((matrix1_all[,2] matrix1_all[,3])))  (matrix(matrix1_source_all[,1]), ci((matrix1_source_all[,2] matrix1_source_all[,3]))), bylabel("Anti-mainstream frame;" "Russian source") ///
       || (matrix(matrix2_all[,1]), ci((matrix2_all[,2] matrix2_all[,3]))) (matrix(matrix2_source_all[,1]), ci((matrix2_source_all[,2] matrix2_source_all[,3]))), bylabel("Mainstream frame;" "Western source") ///
       ||, scheme(s1mono) drop(_cons) xline(0) ///
		headings(r2 = "By RWA beliefs" r4 = "By anti-pluralist beliefs" r6 = "By attitude twd civil rights" r8 = "By moral traditionalism") ///
		coeflabels(r1="Total sample" r2="Strong" r3="Weak" r4="Strong" r5="Weak" r6="Negative" r7="Positive" r8="Strong" r9="Weak")  name(FigA2, replace) ///
		xscale(range(-.4 (.1) .4)) xlabel(-.4 (.1) .4) ///
		xsize(6) ysize(4) legend(off)
addplot 1: , legend(order(2 "Frame only" 4 "Frame + source")) norescaling

capture graph export FigA2.pdf, replace
*NOTE: The position of the legend in FigA3 was edited by hand for the published paper

